home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
idecla2
/
mmdecs.asc
< prev
next >
Wrap
Text File
|
1994-06-21
|
11KB
|
134 lines
Declare Function DrvClose& Lib "MMSYSTEM.DLL" (ByVal hDriver%, ByVal lParam1&, ByVal lParam2&)
Declare Function DrvOpen% Lib "MMSYSTEM.DLL" (ByVal szDriverName$, ByVal szSectionName$, ByVal lParam2&)
Declare Function DrvSendMessageClose& Lib "MMSYSTEM.DLL" (ByVal hDriver%, ByVal uMessage%, ByVal lParam1&, ByVal lParam2&)
Declare Function DrvGetModuleHandle% Lib "MMSYSTEM.DLL" (ByVal hDriver%)
Declare Function DrvDefDriverProc& Lib "MMSYSTEM.DLL" (ByVal dwDriverId&, ByVal driverID, ByVal uMessage%, ByVal lParam1&, ByVal lParam2&)
Declare Function mmsystemGetVersion% Lib "MMSYSTEM.DLL" ()
Declare Sub OutputDebugStr Lib "MMSYSTEM.DLL" (ByVal strout$)
Declare Function sndPlaySound% Lib "MMSYSTEM.DLL" (ByVal lpszSoundName$, ByVal uFlags%)
Declare Function waveOutGetNumDevs% Lib "MMSYSTEM.DLL" ()
Declare Function waveOutGetDevCaps% Lib "MMSYSTEM.DLL" (ByVal uDeviceID%, lpCaps As WAVEOUTCAPS, ByVal uSize%)
Declare Function waveOutGetVolume% Lib "MMSYSTEM.DLL" (ByVal uDeviceID%, lpdwVolume&)
Declare Function waveOutSetVolume% Lib "MMSYSTEM.DLL" (ByVal uDeviceID%, ByVal dwVolume&)
Declare Function waveOutGetErrorText% Lib "MMSYSTEM.DLL" (ByVal uError%, ByVal lpText$, ByVal uSize%)
Declare Function waveOutOpen% Lib "MMSYSTEM.DLL" (lphWaveOut%, ByVal uDeviceID%, lpFormat As WAVEFORMAT, ByVal dwCallback&, ByVal dwInstance&, ByVal dwFlags&)
Declare Function waveOutClose% Lib "MMSYSTEM.DLL" (ByVal hWaveOut%)
Declare Function waveOutPrepareHeader% Lib "MMSYSTEM.DLL" (ByVal hWaveOut%, lpWaveOutHdr As WAVEHDR, ByVal uSize%)
Declare Function waveOutUnprepareHeader% Lib "MMSYSTEM.DLL" (ByVal hWaveOut%, lpWaveOutHdr As WAVEHDR, ByVal uSize%)
Declare Function waveOutWrite% Lib "MMSYSTEM.DLL" (ByVal hWaveOut%, lpWaveOutHdr As WAVEHDR, ByVal uSize%)
Declare Function waveOutPause% Lib "MMSYSTEM.DLL" (ByVal hWaveOut%)
Declare Function waveOutRestart% Lib "MMSYSTEM.DLL" (ByVal hWaveOut%)
Declare Function waveOutReset% Lib "MMSYSTEM.DLL" (ByVal hWaveOut%)
Declare Function waveOutBreakLoop% Lib "MMSYSTEM.DLL" (ByVal hWaveOut%)
Declare Function waveOutGetPosition% Lib "MMSYSTEM.DLL" (ByVal hWaveOut%, lpInfo As MMTIME, ByVal uSize%)
Declare Function waveOutGetPitch% Lib "MMSYSTEM.DLL" (ByVal hWaveOut%, lpdwPitch&)
Declare Function waveOutSetPitch% Lib "MMSYSTEM.DLL" (ByVal hWaveOut%, ByVal dwPitch&)
Declare Function waveOutGetPlaybackRate% Lib "MMSYSTEM.DLL" (ByVal hWaveOut%, lpdwRate&)
Declare Function waveOutSetPlaybackRate% Lib "MMSYSTEM.DLL" (ByVal hWaveOut%, ByVal dwRate&)
Declare Function waveOutGetID% Lib "MMSYSTEM.DLL" (ByVal hWaveOut%, lpuDeviceID%)
Declare Function waveOutMessage& Lib "MMSYSTEM.DLL" (ByVal hWaveOut%, ByVal uMessage%, ByVal dw1&, ByVal dw2&)
Declare Function waveInGetNumDevs% Lib "MMSYSTEM.DLL" ()
Declare Function waveInGetDevCaps% Lib "MMSYSTEM.DLL" (ByVal uDeviceID%, lpCaps As WAVEINCAPS, ByVal uSize%)
Declare Function waveInGetErrorText% Lib "MMSYSTEM.DLL" (ByVal uError%, ByVal lpText$, ByVal uSize%)
Declare Function waveInOpen% Lib "MMSYSTEM.DLL" (lphWaveIn%, ByVal uDeviceID%, lpFormat As WAVEFORMAT, ByVal dwCallback&, ByVal dwInstance&, ByVal dwFlags&)
Declare Function waveInClose% Lib "MMSYSTEM.DLL" (ByVal hWaveIn%)
Declare Function waveInPrepareHeader% Lib "MMSYSTEM.DLL" (ByVal hWaveIn%, lpWaveInHdr As WAVEHDR, ByVal uSize%)
Declare Function waveInUnprepareHeader% Lib "MMSYSTEM.DLL" (ByVal hWaveIn%, lpWaveInHdr As WAVEHDR, ByVal uSize%)
Declare Function waveInAddBuffer% Lib "MMSYSTEM.DLL" (ByVal hWaveIn%, lpWaveInHdr As WAVEHDR, ByVal uSize%)
Declare Function waveInStart% Lib "MMSYSTEM.DLL" (ByVal hWaveIn%)
Declare Function waveInStop% Lib "MMSYSTEM.DLL" (ByVal hWaveIn%)
Declare Function waveInReset% Lib "MMSYSTEM.DLL" (ByVal hWaveIn%)
Declare Function waveInGetPosition% Lib "MMSYSTEM.DLL" (ByVal hWaveIn%, lpInfo As MMTIME, ByVal uSize%)
Declare Function waveInGetID% Lib "MMSYSTEM.DLL" (ByVal hWaveIn%, lpuDeviceID%)
Declare Function waveInMessage& Lib "MMSYSTEM.DLL" (ByVal hWaveIn%, ByVal uMessage%, ByVal dw1&, ByVal dw2&)
' MIDI function prototypes
Declare Function midiOutGetNumDevs% Lib "MMSYSTEM.DLL" ()
Declare Function midiOutGetDevCaps% Lib "MMSYSTEM.DLL" (ByVal uDeviceID%, lpCaps As MIDIOUTCAPS, ByVal uSize%)
Declare Function midiOutGetVolume% Lib "MMSYSTEM.DLL" (ByVal uDeviceID%, lpdwVolume&)
Declare Function midiOutSetVolume% Lib "MMSYSTEM.DLL" (ByVal uDeviceID%, ByVal dwVolume&)
Declare Function midiOutGetErrorText% Lib "MMSYSTEM.DLL" (ByVal uError%, ByVal lpText$, ByVal uSize%)
Declare Function midiOutOpen% Lib "MMSYSTEM.DLL" (lphMidiOut&, ByVal uDeviceID%, ByVal dwCallback&, ByVal dwInstance&, ByVal dwFlags&)
Declare Function midiOutClose% Lib "MMSYSTEM.DLL" (ByVal hMidiOut%)
Declare Function midiOutPrepareHeader% Lib "MMSYSTEM.DLL" (ByVal hMidiOut%, lpMidiOutHdr As MIDIHDR, ByVal uSize%)
Declare Function midiOutUnprepareHeader% Lib "MMSYSTEM.DLL" (ByVal hMidiOut%, lpMidiOutHdr As MIDIHDR, ByVal uSize%)
Declare Function midiOutShortMsg% Lib "MMSYSTEM.DLL" (ByVal hMidiOut%, ByVal dwMsg&)
Declare Function midiOutLongMsg% Lib "MMSYSTEM.DLL" (ByVal hMidiOut%, lpMidiOutHdr As MIDIHDR, ByVal uSize%)
Declare Function midiOutReset% Lib "MMSYSTEM.DLL" (ByVal hMidiOut%)
Declare Function midiOutCachePatches% Lib "MMSYSTEM.DLL" (ByVal hMidiOut%, ByVal uBank%, lpwPatchArray%, ByVal uFlags%)
Declare Function midiOutCacheDrumPatches% Lib "MMSYSTEM.DLL" (ByVal hMidiOut%, ByVal uPatch%, lpwKeyArray%, ByVal uFlags%)
Declare Function midiOutGetID% Lib "MMSYSTEM.DLL" (ByVal hMidiOut%, lpuDeviceID%)
Declare Function midiOutMessage& Lib "MMSYSTEM.DLL" (ByVal hMidiOut%, ByVal uMessage%, ByVal dw1&, ByVal dw2&)
Declare Function midiInGetNumDevs% Lib "MMSYSTEM.DLL" ()
Declare Function midiInGetDevCaps% Lib "MMSYSTEM.DLL" (ByVal uDeviceID%, lpCaps As MIDIINCAPS, ByVal uSize%)
Declare Function midiInGetErrorText% Lib "MMSYSTEM.DLL" (ByVal uError%, ByVal lpText$, ByVal uSize%)
Declare Function midiInOpen% Lib "MMSYSTEM.DLL" (lphMidiIn%, ByVal uDeviceID%, ByVal dwCallback&, ByVal dwInstance&, ByVal dwFlags&)
Declare Function midiInClose% Lib "MMSYSTEM.DLL" (ByVal hMidiIn%)
Declare Function midiInPrepareHeader% Lib "MMSYSTEM.DLL" (ByVal hMidiIn%, lpMidiInHdr As MIDIHDR, ByVal uSize%)
Declare Function midiInUnprepareHeader% Lib "MMSYSTEM.DLL" (ByVal hMidiIn%, lpMidiInHdr As MIDIHDR, ByVal uSize%)
Declare Function midiInAddBuffer% Lib "MMSYSTEM.DLL" (ByVal hMidiIn%, lpMidiInHdr As MIDIHDR, ByVal uSize%)
Declare Function midiInStart% Lib "MMSYSTEM.DLL" (ByVal hMidiIn%)
Declare Function midiInStop% Lib "MMSYSTEM.DLL" (ByVal hMidiIn%)
Declare Function midiInReset% Lib "MMSYSTEM.DLL" (ByVal hMidiIn%)
Declare Function midiInGetID% Lib "MMSYSTEM.DLL" (ByVal hMidiIn%, lpuDeviceID%)
Declare Function midiInMessage& Lib "MMSYSTEM.DLL" (ByVal hMidiIn%, ByVal uMessage%, ByVal dw1&, ByVal dw2&)
' auxiliary audio function prototypes
Declare Function auxGetNumDevs% Lib "MMSYSTEM.DLL" ()
Declare Function auxGetDevCaps% Lib "MMSYSTEM.DLL" (ByVal uDeviceID%, lpCaps As AUXCAPS, ByVal uSize%)
Declare Function auxSetVolume% Lib "MMSYSTEM.DLL" (ByVal uDeviceID%, ByVal dwVolume&)
Declare Function auxGetVolume% Lib "MMSYSTEM.DLL" (ByVal uDeviceID%, lpdwVolume&)
Declare Function auxOutMessage& Lib "MMSYSTEM.DLL" (ByVal uDeviceID%, ByVal uMessage%, ByVal dw1&, ByVal dw2&)
' timer function prototypes
Declare Function timeGetSystemTime% Lib "MMSYSTEM.DLL" (lpTime As MMTIME, ByVal uSize%)
Declare Function timeGetTime& Lib "MMSYSTEM.DLL" ()
Declare Function timeSetEvent% Lib "MMSYSTEM.DLL" (ByVal uDelay%, ByVal uResolution%, ByVal lpFunction&, ByVal dwUser&, ByVal uFlags%)
Declare Function timeKillEvent% Lib "MMSYSTEM.DLL" (ByVal uTimerID%)
Declare Function timeGetDevCaps% Lib "MMSYSTEM.DLL" (lpTimeCaps As TIMECAPS, ByVal uSize%)
Declare Function timeBeginPeriod% Lib "MMSYSTEM.DLL" (ByVal uPeriod%)
Declare Function timeEndPeriod% Lib "MMSYSTEM.DLL" (ByVal uPeriod%)
' joystick function prototypes
Declare Function joyGetDevCaps% Lib "MMSYSTEM.DLL" (ByVal uJoyID%, lpCaps As JOYCAPS, ByVal uSize%)
Declare Function joyGetNumDevs% Lib "MMSYSTEM.DLL" ()
Declare Function joyGetPos% Lib "